From ce426aa11f4fd363156c210b3dadedf4c92e9293 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 8 May 2001 16:24:07 +0000 Subject: [PATCH] (convert-standard-filename): Start replacing slashes from the beginning of the file name, not from where the last invalid character was. From "Andrew Maguire (SWW)" --- lisp/w32-fns.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index 8e0e85dc5f1..018390d4b4a 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -266,11 +266,12 @@ with a definition that really does change some file names." (setq start (match-end 0))) ;; convert directory separators to Windows format ;; (but only if the shell in use requires it) - (if (w32-shell-dos-semantics) - (while (string-match "/" name start) - (aset name (match-beginning 0) ?\\) - (setq start (match-end 0)))) - name)) + (when (w32-shell-dos-semantics) + (setq start 0) + (while (string-match "/" name start) + (aset name (match-beginning 0) ?\\) + (setq start (match-end 0)))) + name)) ;;; Fix interface to (X-specific) mouse.el (defun x-set-selection (type data) -- 2.30.2